Load Catch data and list of focal species

Filter national data set to just Sonora and Baja California Sur

Identifying groups of species that are fished industrially in the region Industrial fisheies in the region include mackerel, sardines, shrimps, corvina, anchoveta, and squid. How much of reported landings come from this subset of species? What do total landings like in the region from 2000-2015? This includes all landings from the CONAPESCA data from year to year. It only included data reported in this dataset. Blue line represents total landings, green line represents landings from small scale fisheries (excluding subset of industrial landings). The differnce then is landings from industrial fleets (~90%).

Note: All species includes industrial and small scale. Small scale excludes the following species mackerel, sardines, shrimps, corvina, anchoveta, and squid. Industrial includes mackerel, sardines, shrimps, corvina, anchoveta, and squid.

Important to note that number of species reported each year also varies. Green represents number of small sclae fisheries species landed (excluding industrial subset). Number of industrial species ranged from 19-27 species, generally stable over time. While small scale fisheries species ranged from 130-179.

Merge CONAPESCA catch data with 17 focal species

Focal species catch per species per year

Figure graphically shows landings of 17 focal specied relative to total landings in each year in Baja California Sur and Sonora. Blue line represents total yearly landings, red line represents combined landings of 17 species. Numerical labels are in percent ie all values are 1% or less.

Tells a differnet story if we omit industrial fisheries and just focus on small scale species. If we only consider small scale fisheries, the 17 focal species collectively represent between 3.2-5.1% of yearly landing from 2000-2015.

Plot catch per species over time

What do landings of 17 focal species looks like over time?

Plot each species separately

This helps us to see gaps in data, that is, some species don’t have landing reported for all years. Are they not finshed anymore because fisheries is collapsed or the market value is not worth it etc? Or is it that it is still being fished but not reported?

Average Distribution of catch by all species in the MRI in 2014 excluding industiral fisheries

If our 17 species only account for ~5%, what are the other species that make up landings on average?

Other important species include: cannonball jellyfish, Catarina scallop, no data (~17%), blue swimming crab, sea bass, etc

2014

I wanted to look specifically at 2014 since we have data on market value of the 17 focal spceies. In 2014 the 17 focal species generated $10,664,380 USD.

From the graphs below we see that California Spiny Lobster generated 73.9% of value in 2014 but only acconted for 35.3% of total landings.

SPAGS

The SPAGS layer contains 68 point entries corresponsing to 10 species. Of the 68 points only 58 overlap with the final design of the marine reserve network, but we do have representation of all 10 species(6 invertebrates and 4 fish). 4 of these species overlap with our 17 focal species (Mycteroperca jordani, Panulirus inflatus, Paralabrax spp). The SPAG layer includes Paralabrax spp, we have two Paralabrax species, can we assume the aggregation include our two species?

From the data we could include:Hoplopagrus guentheri (snapper) and Octopus sp. which is not specific to any one species of octopus and Paralabrax spp which is also not speices specific. Including these 3 we would have 14 spawning aggregation sites.

SPAGS<-read.csv(here("raw_data", "SPAGS.csv"))

SPAG<-merge(catch, SPAGS, by= "NombreCientifico")%>%
 group_by(NombreCientifico, Ano)%>%
  summarise(Annual_Catch_kg=sum(PesoVivo))%>%
  mutate(MT=Annual_Catch_kg/1000)

unique(SPAG$NombreCientifico)
## [1] Callinectes bellicosus Hoplopagrus guentheri  Istiophorus spp       
## [4] Mycteroperca jordani   Octopus sp             Panulirus inflatus    
## 481 Levels: 0 Acanthurus spp Acanthurus xanthopterus ... Xiphophorus helleri
graph5 <-ggplot(SPAG, aes(x=Ano, y=MT, color=NombreCientifico))+
  #tiff('yearly_catch_focal_species.tiff', units="in", width=10, height=5, res=300)+
  geom_line(size=1)+
  geom_point()+
  labs(x="Year", y="Yearly total catch catch (MT)", title="", subtitle= "2000-2015")+
  theme_classic()+
  scale_x_continuous(expand=c(0,0))+
  scale_y_continuous(expand=c(0,0))+
  theme(legend.title=element_blank())